home *** CD-ROM | disk | FTP | other *** search
/ FutureMusic 2005 September / Future Music Magazine September 2005.iso / pc / FMmag.dxr / 00022_loop.ls < prev    next >
Encoding:
Text File  |  2005-06-01  |  521 b   |  34 lines
  1. property pMemberNum, pSpr, pOnOff
  2. global gZoomedObj
  3.  
  4. on beginSprite me
  5.   pSpr = sprite(me.spriteNum)
  6.   pMemberNum = pSpr.member.number
  7. end
  8.  
  9. on mouseDown me
  10.   if pSpr.member = member(pMemberNum) then
  11.     pSpr.member = member(pMemberNum + 1)
  12.     pOnOff = 1
  13.   else
  14.     pSpr.member = member(pMemberNum)
  15.     pOnOff = 0
  16.   end if
  17. end
  18.  
  19. on mouseUp me
  20.   if pOnOff = 1 then
  21.     gZoomedObj.loop()
  22.   else
  23.     gZoomedObj.LoopOff()
  24.   end if
  25. end
  26.  
  27. on mouseUpOutSide me
  28. end
  29.  
  30. on Reset me
  31.   pSpr.member = member(pMemberNum)
  32.   pOnOff = 0
  33. end
  34.